BBS in a Box 2/BBS in a box - Trilogy II.iso/AMUG Info/Apple/ResEdit 2.1.1 Examples/Libraries/ResDisp.a

Text File | 1991-07-10 | 6.3 KB | 235 lines | [TEXT/MPS ]

; File ResDisp.a
;
; COPYRIGHT (C) 1984-1990 Apple Computer,Inc.
; All rights reserved

; Linking with this code allows Pickers, Editors or whatever to call
; certain routines in ResEdit’s CODE segments.

    PROC

ApplScratch    equ    $a78


; Calls back to main program
            EXPORT    DrawLDEF
            EXPORT    BubbleUp
            EXPORT    REGet1IndResource
            EXPORT    RECount1Resources
            EXPORT    UseAppRes
            EXPORT    REGet1Resource
            EXPORT    REGet1ResourceSpecial
            EXPORT    ColorAvailable
            EXPORT    GetStr
            EXPORT    GetNamedStr


            EXPORT    CallInfoUpdate

            EXPORT    PassMenu
            EXPORT    GiveSubEBirth
            EXPORT    GetQuickDrawVars
            EXPORT    NeedToRevert
            EXPORT    DisplayStrAlert
            EXPORT    DrawPopup
            EXPORT    DoPopup

            EXPORT    NoDoubleClickHere
            EXPORT    SendRebuildToPickerAndFile
            EXPORT    WindReturn
            EXPORT    WindList
            EXPORT    WindOrigin

            EXPORT    AbleMenu

            EXPORT    FindOwnerWindow
            EXPORT    BuildType
            EXPORT    GrowMyWindow
            EXPORT    ConcatStr
            EXPORT    PickStdHeight
            EXPORT    PickStdWidth
            EXPORT    ChooseIcon
            EXPORT    DupPick
            EXPORT    SysResFile
            EXPORT    RevertThisResource
            EXPORT    FixHand
            EXPORT    CallDoEvent
            EXPORT    DrawMBarLater
            EXPORT    PassEvent
            EXPORT    GiveEBirth
            EXPORT    HandleCheck
            EXPORT    MetaKeys
            EXPORT    PickEvent
            EXPORT    PickInfoUp
            EXPORT    PickMenu
            EXPORT    SendRebuildToPicker
            EXPORT    ScrapCopy
            EXPORT    ScrapEmpty
            EXPORT    ScrapPaste
            EXPORT    SetResChanged
            EXPORT    SetETitle
            EXPORT    GetResEditScrapFile
            EXPORT    FloatingWindowSetup
            EXPORT    ShowInfo

            EXPORT    GiveThisEBirth

            EXPORT    KillCache
            EXPORT    DefaultListCellSize
            EXPORT    DoKeyScan
            EXPORT    TypeToString
            EXPORT    FrameDialogItem
            EXPORT    FlashDialogItem
            EXPORT    AlreadyOpen
            EXPORT    EditorWindSetup
            EXPORT    GetWindowTitle
            EXPORT    Abort
            EXPORT    DisplayAlert
            EXPORT    WasAborted
            EXPORT    GetType
            EXPORT    CheckError
            EXPORT    CloseNoSave
            EXPORT    SetTheCursor
            EXPORT    RestoreRemovedResources
            EXPORT    MapResourceType
            EXPORT    WasItLoaded
            EXPORT    PickerWindSetup
            EXPORT    PrintWindow
            EXPORT    PrintSetup
            EXPORT    DoPickBirth
            EXPORT    WritePreferences
            EXPORT    GetErrorText
            EXPORT    CenterDialog
            EXPORT    PlaySyncSound
            EXPORT    ResourceIDHasChanged

            EXPORT    InstallColorPalettePopup
            EXPORT    WindAlloc
            EXPORT    DrawColorPopup
            EXPORT    ColorPalettePopupSelect
            EXPORT    DeinstallColorPalettePopup

            EXPORT    RERemoveAnyResource
            EXPORT    REAddNewRes
            EXPORT    RENewUniqueRes
            EXPORT    REBeautifulUnique1ID
            EXPORT    RECount1Types
            EXPORT    REGet1IndType
            EXPORT    REGet1NamedResource
            EXPORT    REAddResource

            EXPORT    StandardFilter;



DrawLDEF            JSR    DivingBoard        ;  1
BubbleUp               JSR DivingBoard
REGet1IndResource    JSR DivingBoard
RECount1Resources   JSR DivingBoard
UseAppRes              JSR DivingBoard        ;  5
REGet1Resource        JSR    DivingBoard
REGet1ResourceSpecial JSR    DivingBoard    ; 7
ColorAvailable        JSR DivingBoard
GetStr                JSR DivingBoard
GetNamedStr            JSR DivingBoard        ; 10

BuildType           JSR DivingBoard
GrowMyWindow        JSR DivingBoard
ColorPalettePopupSelect    JSR DivingBoard
ConcatStr           JSR    DivingBoard
PickStdHeight        JSR    DivingBoard
PickStdWidth        JSR    DivingBoard
ChooseIcon            JSR    DivingBoard
DeinstallColorPalettePopup    JSR    DivingBoard
DupPick                   JSR    DivingBoard
SysResFile             JSR    DivingBoard        ; 20
RevertThisResource    JSR    DivingBoard
FixHand                   JSR    DivingBoard
DrawColorPopup        JSR    DivingBoard
DrawMBarLater          JSR    DivingBoard
CallDoEvent            JSR    DivingBoard
PassEvent            JSR    DivingBoard
GiveEBirth             JSR    DivingBoard
HandleCheck            JSR    DivingBoard
MetaKeys               JSR    DivingBoard
AbleMenu           JSR    DivingBoard        ; 30
PickEvent              JSR    DivingBoard
PickInfoUp             JSR    DivingBoard
PickMenu               JSR    DivingBoard
SendRebuildToPicker    JSR    DivingBoard
ScrapCopy              JSR    DivingBoard
ScrapEmpty             JSR    DivingBoard
ScrapPaste             JSR    DivingBoard
SetResChanged        JSR    DivingBoard
ShowInfo               JSR    DivingBoard
SetETitle              JSR    DivingBoard        ; 40
GetResEditScrapFile JSR    DivingBoard
FloatingWindowSetup JSR    DivingBoard
CallInfoUpdate        JSR    DivingBoard
PassMenu               JSR    DivingBoard
GiveSubEBirth          JSR    DivingBoard
GetQuickDrawVars     JSR    DivingBoard
NeedToRevert        JSR    DivingBoard
DisplayStrAlert        JSR    DivingBoard          ; 48
DrawPopup            JSR    DivingBoard        ; 49
GiveThisEBirth        JSR    DivingBoard        ; 50
WindReturn            JSR    DivingBoard        ; 51
KillCache            JSR    DivingBoard        ; 52
DefaultListCellSize    JSR    DivingBoard        ; 53
DoKeyScan            JSR    DivingBoard        ; 54
TypeToString        JSR    DivingBoard        ; 55
FrameDialogItem        JSR    DivingBoard        ; 56
FlashDialogItem        JSR    DivingBoard        ; 57
AlreadyOpen            JSR    DivingBoard        ; 58
EditorWindSetup        JSR    DivingBoard        ; 59
GetWindowTitle        JSR    DivingBoard        ; 60
Abort                JSR    DivingBoard        ; 61
DisplayAlert        JSR    DivingBoard        ; 62
WasAborted            JSR    DivingBoard        ; 63
GetType                JSR    DivingBoard        ; 64
CheckError            JSR DivingBoard        ; 65
CloseNoSave            JSR DivingBoard        ; 66
SetTheCursor        JSR DivingBoard        ; 67
RestoreRemovedResources JSR DivingBoard    ; 68
MapResourceType        JSR DivingBoard        ; 69
WasItLoaded            JSR DivingBoard        ; 70
PickerWindSetup        JSR    DivingBoard        ; 71
WindOrigin            JSR    DivingBoard        ; 72
FindOwnerWindow        JSR    DivingBoard        ; 73
PrintWindow            JSR    DivingBoard        ; 74
PrintSetup            JSR    DivingBoard        ; 75
NoDoubleClickHere    JSR    DivingBoard        ; 76
DoPickBirth            JSR    DivingBoard        ; 77
WritePreferences    JSR    DivingBoard        ; 78
GetErrorText        JSR    DivingBoard        ; 79
CenterDialog        JSR    DivingBoard        ; 80
PlaySyncSound        JSR    DivingBoard        ; 81
ResourceIDHasChanged JSR DivingBoard    ; 82
RERemoveAnyResource    JSR  DivingBoard    ; 83
REAddNewRes            JSR  DivingBoard    ; 84
RENewUniqueRes        JSR  DivingBoard    ; 85
REBeautifulUnique1ID JSR  DivingBoard    ; 86
RECount1Types        JSR  DivingBoard    ; 87
SendRebuildToPickerAndFile    JSR    DivingBoard        ; 88
WindList            JSR    DivingBoard        ; 89
REGet1IndType        JSR    DivingBoard        ; 90
InstallColorPalettePopup    JSR    DivingBoard        ; 91
WindAlloc            JSR DivingBoard        ; 92
REGet1NamedResource    JSR    DivingBoard        ; 93
REAddResource        JSR    DivingBoard        ; 94
                    JSR    DivingBoard        ; 95        UNUSED
                    JSR    DivingBoard        ; 96        UNUSED
StandardFilter        JSR    DivingBoard        ; 97
DoPopup                JSR    DivingBoard        ; 98

            ; Max 120

DivingBoard
            LEA            DrawLDEF+4,A1
            MOVE.L      (SP)+,A0
            SUB.L       A1,A0
            ADD.L       ApplScratch,A0
            MOVE.L      (A0),A0
            JMP            (A0)

    END